﻿Imports System

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports ContactFormBLL



'''<summary>
'''This is a test class for ContactRequestTest and is intended
'''to contain all ContactRequestTest Unit Tests
'''</summary>
<TestClass()> _
Public Class ContactRequestTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Gets or sets the test context which provides
    '''information about and functionality for the current test run.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(ByVal value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Additional test attributes"
    '
    'You can use the following additional attributes as you write your tests:
    '
    'Use ClassInitialize to run code before running the first test in the class
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup to run code after all tests in a class have run
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize to run code before running each test
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup to run code after each test has run
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''A test for zip
    '''</summary>
    <TestMethod()> _
    Public Sub zipTest()
        'Dim target As ContactRequest = NewContactRequest ' TODO: Initialize to an appropriate value
        'target.zip = "27592"
        'Assert.AreEqual("27592", target.zip)
    End Sub

    '''<summary>
    '''A test for subject
    '''</summary>
    <TestMethod()> _
    Public Sub subjectTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.subject = expected
        actual = target.subject
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for state
    '''</summary>
    <TestMethod()> _
    Public Sub stateTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.state = expected
        actual = target.state
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for SetName
    '''</summary>
    <TestMethod()> _
    Public Sub SetNameTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.SetName = expected
        actual = target.SetName
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for request
    '''</summary>
    <TestMethod()> _
    Public Sub requestTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.request = expected
        actual = target.request
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for Reponded
    '''</summary>
    <TestMethod()> _
    Public Sub RepondedTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As Boolean = False ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        target.Reponded = expected
        actual = target.Reponded
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for phone
    '''</summary>
    <TestMethod()> _
    Public Sub phoneTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.phone = expected
        actual = target.phone
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for name
    '''</summary>
    <TestMethod()> _
    Public Sub nameTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.name = expected
        actual = target.name
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for IsValid
    '''</summary>
    <TestMethod()> _
    Public Sub IsValidTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.IsValid
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for IsDirty
    '''</summary>
    <TestMethod()> _
    Public Sub IsDirtyTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As Boolean = False ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        target.IsDirty = expected
        actual = target.IsDirty
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for FirstName
    '''</summary>
    <TestMethod()> _
    Public Sub FirstNameTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.FirstName = expected
        actual = target.FirstName
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for email
    '''</summary>
    <TestMethod()> _
    Public Sub emailTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.email = expected
        actual = target.email
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for DateAdded
    '''</summary>
    <TestMethod()> _
    Public Sub DateAddedTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As Nullable(Of DateTime) = New Nullable(Of DateTime) ' TODO: Initialize to an appropriate value
        Dim actual As Nullable(Of DateTime)
        target.DateAdded = expected
        actual = target.DateAdded
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for contactid
    '''</summary>
    <TestMethod()> _
    Public Sub contactidTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As Integer = 0 ' TODO: Initialize to an appropriate value
        Dim actual As Integer
        target.contactid = expected
        actual = target.contactid
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for city
    '''</summary>
    <TestMethod()> _
    Public Sub cityTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.city = expected
        actual = target.city
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for CanRead
    '''</summary>
    <TestMethod()> _
    Public Sub CanReadTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.CanRead
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for CanEdit
    '''</summary>
    <TestMethod()> _
    Public Sub CanEditTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.CanEdit
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for CanDelete
    '''</summary>
    <TestMethod()> _
    Public Sub CanDeleteTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.CanDelete
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for CanAdd
    '''</summary>
    <TestMethod()> _
    Public Sub CanAddTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim actual As Boolean
        actual = target.CanAdd
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for business
    '''</summary>
    <TestMethod()> _
    Public Sub businessTest()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.business = expected
        actual = target.business
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for address2
    '''</summary>
    <TestMethod()> _
    Public Sub address2Test()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.address2 = expected
        actual = target.address2
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for address1
    '''</summary>
    <TestMethod()> _
    Public Sub address1Test()
        Dim target As ContactRequest = New ContactRequest ' TODO: Initialize to an appropriate value
        Dim expected As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim actual As String
        target.address1 = expected
        actual = target.address1
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for CreateContactRequest
    '''</summary>
    <TestMethod()> _
    Public Sub CreateContactRequestTest()
        Dim contactid As Integer = 0 ' TODO: Initialize to an appropriate value
        Dim name As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim email As String = String.Empty ' TODO: Initialize to an appropriate value
        Dim reponded As Boolean = False ' TODO: Initialize to an appropriate value
        Dim expected As ContactRequest = Nothing ' TODO: Initialize to an appropriate value
        Dim actual As ContactRequest
        actual = ContactRequest.CreateContactRequest(contactid, name, email, reponded)
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Verify the correctness of this test method.")
    End Sub

    '''<summary>
    '''A test for ContactRequest Constructor
    '''</summary>
    <TestMethod()> _
    Public Sub ContactRequestConstructorTest()
        Dim target As ContactRequest = New ContactRequest
        Assert.Inconclusive("TODO: Implement code to verify target")
    End Sub
End Class
